home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / business / sacube.zip / SACUBE.FOR < prev    next >
Text File  |  1992-04-19  |  1KB  |  39 lines
  1.         program sacube
  2.         real s,a
  3.         integer con
  4.  
  5. 10      write(*,8000)
  6.         write(*,8000)
  7.         write(*,5000)
  8.         write(*,5100)
  9.         write(*,5200)
  10.         write(*,5300)
  11.         write(*,5400)
  12.         write(*,8000)
  13.         write(*,8000)
  14.         write(*,6000)
  15.         read(*,6100) s
  16.         a = 6 * (s*s)
  17.         write(*,6200) a
  18.         write(*,8000)
  19.         write(*,8000)
  20.         write(*,7000)
  21.         write(*,7050)
  22.         read(*,7100) con
  23.         if (con .eq. 1) goto 10
  24.  
  25. 5000    format(' This program will calculate the surface area of a')
  26. 5100    format(' cube. You must enter the length of one of the sides')
  27. 5200    format(' of the cube in the form: $$$$$$$$$.$$$ so that 4')
  28. 5300    format(' would be entered as 4. or 4.000. This program is')
  29. 5400    format(' produced and distributed by MacroWare Software.')
  30. 6000    format(' enter length of side: ')
  31. 6100    format(f10.3)
  32. 6200    format(' the answer is',f10.3)
  33. 7000    format(' Do you want to solve another? ')
  34. 7050    format(' enter 1 for yes or press enter alone for no')
  35. 7100    format(i1)
  36. 8000    format('  ')
  37.         end
  38.  
  39.